home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1993 November / JCSM Shareware Collection - 1993-11.iso / cl720 / fast278j.lzh / FS.F < prev    next >
Text File  |  1980-01-01  |  441b  |  27 lines
  1.  
  2. #include fsort.fi
  3. ld=allocate 4096
  4. fill 32768 from ld|0 with 1a1ah
  5. load "\asm\sofa.c",ld|0
  6.  
  7. m=0:recs=0
  8. while ld[m]b<>1ah
  9.     {
  10.     n=1+searchb 16 from ld|m for 13:if n=1 then goto sortit
  11.     if ld[n]b=10 then n++
  12.     move 4000 from ld|n to ld|m+16
  13.     m+=16:recs++
  14.     }
  15.  
  16. sortit:
  17. if sort(ld,0,16,recs) then
  18.     {
  19.     m=0:repeat recs
  20.     {
  21.     n=m
  22.     while ld[n]b<>13 print bios chr ld[n];:n++
  23.     print bios
  24.     m+=16
  25.     }
  26.     }
  27.